home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / epsilon.z / epsilon
Encoding:
Text File  |  2002-10-03  |  3.0 KB  |  86 lines
  1. EPSILON(3I)                                           Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      EEPPSSIILLOONN - Returns _r-1, where _r is the smallest number greater than 1
  6.      in the numeric model
  7.  
  8. SSYYNNOOPPSSIISS
  9.      EEPPSSIILLOONN (([XX==]_x))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, IRIX systems
  13.  
  14.      CF90, MIPSpro 7 Fortran 90
  15.  
  16. SSTTAANNDDAARRDDSS
  17.      Fortran
  18.  
  19. DDEESSCCRRIIPPTTIIOONN
  20.      The EEPPSSIILLOONN intrinsic function returns a positive model number that is
  21.      almost negligible compared to unity in the model representing numbers
  22.      of the same type and kind type parameter as the argument.  It accepts
  23.      the following argument:
  24.  
  25.      _x         Must be of type real.  It can be scalar or array valued.
  26.  
  27.      EEPPSSIILLOONN is an inquiry function.  The name of this intrinsic cannot be
  28.      passed as an argument.
  29.  
  30. RREETTUURRNN VVAALLUUEESS
  31.      The result type is a scalar of the same type and kind type parameter
  32.      as _x.  The result has the value
  33.       (1-_p)
  34.      _b      where _b and _p are as defined in the model for real numbers
  35.      representing numbers of the same type and kind type parameter as _x.
  36.      For information on the real number model, see the MMOODDEELLSS(3I) man page.
  37.  
  38. EEXXAAMMPPLLEESS
  39.      The following code fragment was run on several systems:
  40.  
  41.           REAL(KIND=4) r4
  42.           REAL(KIND=8) r8
  43.           REAL(KIND=16) r16
  44.           REAL rd
  45.           PRINT *,'EPSILON r4=',EPSILON(r4)
  46.           PRINT *,'EPSILON r8=',EPSILON(r8)
  47.           PRINT *,'EPSILON r16=',EPSILON(r16)
  48.           PRINT *,'EPSILON rd=',EPSILON(rd)
  49.           END
  50.  
  51.      The results of this test case on IRIX systems are as follows:
  52.  
  53.           EPSILON r4= 1.192092896E-7
  54.           EPSILON r8= 2.22044604925031308E-16
  55.           EPSILON r16= 1.23259516440783094595582588325435348E-32
  56.           EPSILON rd= 1.192092896E-7
  57.  
  58.      The results of this test case on CRAY T90 systems that support IEEE
  59.      floating-point arithmetic are as follows:
  60.  
  61.           EPSILON r4= 1.192092896E-7
  62.           EPSILON r8= 2.22044604925031308E-16
  63.           EPSILON r16= 1.92592994438723585305597794258492732E-34
  64.           EPSILON rd= 2.22044604925031308E-16
  65.  
  66.      The results of this test case on UNICOS systems, except for CRAY T90
  67.      systems that support IEEE floating-point arithmetic, are as follows:
  68.  
  69.           EPSILON r4= 1.192092895507812E-7
  70.           EPSILON r8= 1.4210854715202E-14
  71.           EPSILON r16= 5.04870979341447555463506281781E-29
  72.           EPSILON rd= 1.4210854715202E-14
  73.  
  74.      The results of this test case on UNICOS/mk systems are as follows:
  75.  
  76.           EPSILON r4= 1.192092896E-7
  77.           EPSILON r8= 2.22044604925031308E-16
  78.           EPSILON r16= 2.22044604925031308E-16
  79.           EPSILON rd= 2.22044604925031308E-16
  80.  
  81. SSEEEE AALLSSOO
  82.      MMOODDEELLSS(3I)
  83.  
  84.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  85.      man page.
  86.